Further locate-file fixes on nativecomp

* lisp/files.el (locate-file): Fix up previous locate-file change
-- don't unconditionally return .elc on nativecomp.

diff --git a/lisp/files.el b/lisp/files.el
index 327375ddaa468689c6fae2c93b79dd06858c4a55..7be93662b1c99727f27328a892fc10a3777bf289 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -996,7 +996,8 @@ one or more of those symbols."
         ;; return here (if it exists).
         (let* ((el (gethash (file-name-nondirectory file) comp-eln-to-el-h))
                (elc (replace-regexp-in-string "\\.el\\'" ".elc" el)))
-          (if (file-exists-p elc)
+          (if (and (member ".elc" suffixes)
+                   (file-exists-p elc))
               elc
             el))
       file)))